home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
KEYWORD
/
ISRATIO.KEY
< prev
next >
Wrap
Text File
|
1993-11-07
|
328b
|
7 lines
* isratio internal
isratio(x) gives 1 if x is ratio, or 0 otherwise.
You can assume x is ratio by isodd(x) := 1.
See also: iscomplex, iseven, isfree, isinteger, islarger, isless, islist,
isodd, isreal, isratio, issame, isnumber.
e.g. isratio(2/3) gives 1, isratio(2) gives 0.